home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #1 / Amiga Plus CD - 1997 - No. 01.iso / pd / programmierung / mesa-1.2.8 / widgets / demos / ed.c < prev    next >
C/C++ Source or Header  |  1996-05-27  |  17KB  |  655 lines
  1. /* ed.c -- Event Display (demo program for the MesaWS widget)
  2.    Copyright (C) 1995 Thorsten.Ohl @ Physik.TH-Darmstadt.de
  3.  
  4.    This program is free software; you can redistribute it and/or modify
  5.    it under the terms of the GNU General Public License as published by
  6.    the Free Software Foundation; either version 2 of the License, or
  7.    (at your option) any later version.
  8.  
  9.    This program is distributed in the hope that it will be useful,
  10.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12.    GNU General Public License for more details.
  13.  
  14.    You should have received a copy of the GNU General Public License
  15.    along with this program; see the file COPYING.  If not, write to
  16.    the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  17.  
  18.    $Id: ed.c,v 1.16 1995/05/19 20:30:57 ohl Exp $
  19.  */
  20.  
  21. /* This is a simple event display as a demonstration of the MesaWS widget.
  22.    It reads a stream of simple event records from standard input (see the
  23.    file `events' for a example).
  24.  
  25.    It is a slow and crude hack.  */
  26.   
  27. #include <stdio.h>
  28. #include <stdlib.h>
  29. #include <stdarg.h>
  30. #include <math.h>
  31. #ifndef M_PI
  32. #define M_PI 3.14159265358979323846
  33. #endif
  34. #include <X11/X.h>
  35. #include <X11/Intrinsic.h>
  36. #include <X11/StringDefs.h>
  37. #include <X11/Shell.h>
  38. #include <X11/Xaw/Box.h>
  39. #include <X11/Xaw/Command.h>
  40. #include <X11/Xaw/Form.h>
  41. #include <GL/xmesa.h>
  42. #include <GL/gl.h>
  43. #include <GL/glu.h>
  44. #include <GL/glx.h>
  45. #include <GL/MesaDrawingArea.h>
  46. #include <GL/MesaWorkstation.h>
  47.  
  48. static char *RCS_Id =
  49. "@(#) $Id: ed.c,v 1.16 1995/05/19 20:30:57 ohl Exp $";
  50.  
  51. static GLint Black, White, Red, Green, Blue, Yellow;
  52. Widget mesa, mesax, mesay, mesaz;
  53.  
  54. static void quit_function (Widget, XtPointer, XtPointer);
  55. static void next_function (Widget, XtPointer, XtPointer);
  56. static void next_event (void);
  57. static void update_angles (float, float);
  58. static void update_number (int);
  59.  
  60. static void
  61. Quit (Widget w, XEvent *event, String *argv, Cardinal *argc)
  62. {
  63.   quit_function (NULL, NULL, NULL);
  64. }
  65.  
  66. void
  67. Next (Widget w, XEvent *event, String *argv, Cardinal *argc)
  68. {
  69.   next_function (NULL, NULL, NULL);
  70. }
  71.  
  72. static XtActionsRec actions[] =
  73. {
  74.   {"Quit", Quit },
  75.   {"Next", Next },
  76. };
  77.  
  78. void
  79. quit_function (Widget w, XtPointer closure, XtPointer call_data)
  80. {
  81.   exit (0);
  82. }
  83.  
  84. void
  85. next_function (Widget w, XtPointer closure, XtPointer call_data)
  86. {
  87.   next_event ();
  88.   GLwRedrawObjects (mesa);
  89.   GLwRedrawObjects (mesax);
  90.   GLwRedrawObjects (mesay);
  91.   GLwRedrawObjects (mesaz);
  92. }
  93.  
  94. #define SET_POLAR(_p, _r, _theta, _phi) \
  95.     (_p)[0] = (_r) * sin (_theta) * cos (_phi), \
  96.     (_p)[1] = (_r) * sin (_theta) * sin (_phi), \
  97.     (_p)[2] = (_r) * cos (_theta)
  98. static void
  99. draw_barrel_segment (float bottom_radius, float top_radius,
  100.              float front_angle, float back_angle,
  101.              float half_angle)
  102. {
  103.   int i;
  104.   GLdouble top[4][3], bottom[4][3], *front[4], *back[4];
  105.  
  106.   SET_POLAR (top[0], top_radius, front_angle, half_angle);
  107.   SET_POLAR (top[1], top_radius, front_angle, -half_angle);
  108.   SET_POLAR (top[2], top_radius, back_angle, -half_angle);
  109.   SET_POLAR (top[3], top_radius, back_angle, half_angle);
  110.  
  111.   SET_POLAR (bottom[0], bottom_radius, front_angle, half_angle);
  112.   SET_POLAR (bottom[1], bottom_radius, front_angle, -half_angle);
  113.   SET_POLAR (bottom[2], bottom_radius, back_angle, -half_angle);
  114.   SET_POLAR (bottom[3], bottom_radius, back_angle, half_angle);
  115.  
  116.   front[0] = top[0];
  117.   front[1] = top[1];
  118.   front[2] = bottom[1];
  119.   front[3] = bottom[0];
  120.  
  121.   back[0] = top[3];
  122.   back[1] = top[2];
  123.   back[2] = bottom[2];
  124.   back[3] = bottom[3];
  125.  
  126.   glBegin (GL_LINE_LOOP);
  127.     for (i = 0; i <= 3; i++)
  128.       glVertex3dv (top[i]);
  129.   glEnd ();
  130.   
  131.   glBegin (GL_LINE_LOOP);
  132.     for (i = 0; i <= 3; i++)
  133.       glVertex3dv (bottom[i]);
  134.   glEnd ();
  135.   
  136.   glBegin (GL_LINE_LOOP);
  137.     for (i = 0; i <= 3; i++)
  138.       glVertex3dv (front[i]);
  139.   glEnd ();
  140.   
  141.   glBegin (GL_LINE_LOOP);
  142.     for (i = 0; i <= 3; i++)
  143.       glVertex3dv (back[i]);
  144.   glEnd ();
  145. }
  146.  
  147. static GLuint particles;
  148. static GLuint greek, latin, desc, desc_number, desc_angles;
  149.  
  150. static void
  151. next_event (void)
  152. {
  153.   char buffer[100];
  154.   enum
  155.     {
  156.       SKIP, READ, DONE
  157.     }
  158.   state;
  159.   int event = 0;
  160.   
  161.   glNewList (particles, GL_COMPILE);
  162.   glBegin (GL_LINES);
  163.   {
  164.     state = SKIP;
  165.     while (state != DONE)
  166.       {
  167.     int id;
  168.     float px, py, pz;
  169.     if (fgets (buffer, 100, stdin) == NULL)
  170.       state = DONE;
  171.     switch (state)
  172.       {
  173.       case SKIP:
  174.         if (sscanf (buffer, "BEGIN %d", &event) == 1)
  175.           state = READ;
  176.         break;
  177.       case READ:
  178.         if (sscanf (buffer, "%d %g %g %g",
  179.             &id, &px, &py, &pz) == 4)
  180.           {
  181.         if (id == 22)
  182.           {
  183.             /* Photons */
  184.             glIndexi (Red);
  185.             glColor3f (1.0, 0.0, 0.0);
  186.           }
  187.         else if ((11 == abs (id))
  188.              || (13 == abs (id))
  189.              || (15 == abs (id)))
  190.           {
  191.             /* Charged leptons */
  192.             glIndexi (Green);
  193.             glColor3f (0.0, 1.0, 0.0);
  194.           }
  195.         else if ((12 == abs (id))
  196.              || (14 == abs (id))
  197.              || (16 == abs (id)))
  198.           {
  199.             /* Neutral leptons */
  200.             glIndexi (Yellow);
  201.             glColor3f (1.0, 1.0, 0.0);
  202.           }
  203.         else if ((abs (id) <= 6) || (100 <= abs (id)))
  204.           {
  205.             /* Quarks/Hadrons */
  206.             glIndexi (Blue);
  207.             glColor3f (0.0, 0.0, 1.0);
  208.           }
  209.         else
  210.           {
  211.             /* ??? */
  212.             glIndexi (White);
  213.             glColor3f (1.0, 1.0, 1.0);
  214.           }
  215.         glVertex3f (0.0, 0.0, 0.0);
  216.         glVertex3f (px, py, pz);
  217.           }
  218.         else if (strncmp ("END", buffer, 3) == 0)
  219.           state = DONE;
  220.         break;
  221.       case DONE:
  222.         /* never happens */
  223.         break;
  224.       }
  225.       }
  226.   }
  227.   glEnd ();
  228.   glEndList ();
  229.  
  230.   update_number (event);
  231. }
  232.  
  233. static void
  234. update_angles (float theta, float phi)
  235. {
  236.   char msg[64];
  237.   sprintf (msg, "f=%5.2fp, q=%5.2fp", phi/M_PI, theta/M_PI);
  238.   glNewList (desc_angles, GL_COMPILE);
  239.     glCallLists (strlen (msg), GL_BYTE, msg);
  240.   glEndList ();
  241. }  
  242.  
  243. static void
  244. update_number (int event)
  245. {
  246.   char msg[32];
  247.   sprintf (msg, "ADLO/TH, #%d", event);
  248.   glNewList (desc_number, GL_COMPILE);
  249.     glCallLists (strlen (msg), GL_BYTE, msg);
  250.   glEndList ();
  251. }  
  252.  
  253. static void
  254. setup_context (Widget w)
  255. {
  256.   GLwMakeCurrent (w);
  257.   glClearColor (0.0, 0.0, 0.0, 0.0);
  258.   glClearIndex (Black);
  259.   glShadeModel (GL_FLAT);
  260. }
  261.  
  262. static GLint
  263. alloc_color (Widget w, Colormap cmap, int red, int green, int blue)
  264. { 
  265.   XColor xcolor;
  266.   xcolor.red = red;
  267.   xcolor.green = green;
  268.   xcolor.blue = blue;
  269.   xcolor.flags = DoRed | DoGreen | DoBlue;
  270.   if (!XAllocColor (XtDisplay (w), cmap, &xcolor))
  271.     {
  272.       printf ("Couldn't allocate color!\n");
  273.       exit (1);
  274.     }
  275.   return xcolor.pixel;
  276. }
  277.  
  278. /* This is rather inefficient, but we don't mind for the moment,
  279.    because it works.  */
  280.  
  281. static void
  282. translate_pixels (Widget to, Widget from, ...)
  283. {
  284.   va_list ap;
  285.   char *name;
  286.   Colormap from_cmap, to_cmap;
  287.   XColor xcolor;
  288.  
  289.   XtVaGetValues (from, XtNcolormap, &from_cmap, NULL);
  290.   XtVaGetValues (to, XtNcolormap, &to_cmap, NULL);
  291.  
  292.   va_start (ap, from);
  293.   for (name = va_arg (ap, char *); name != NULL; name = va_arg (ap, char *))
  294.     {
  295.       XtVaGetValues (from, name, &xcolor.pixel, NULL);
  296.       XQueryColor (XtDisplay (from), from_cmap, &xcolor);
  297.       if (!XAllocColor (XtDisplay (to), to_cmap, &xcolor))
  298.     XtAppWarning (XtWidgetToApplicationContext (to),
  299.               "Couldn't allocate color!\n");
  300.       else
  301.     XtVaSetValues (from, name, xcolor.pixel, NULL);
  302.     }
  303.   va_end (ap);
  304. }
  305.  
  306. static Widget
  307. create_label (Widget parent, char *name, char *text)
  308. {
  309.   return XtVaCreateManagedWidget (name, labelWidgetClass, parent,
  310.                   XtNlabel, text, NULL);
  311. }
  312.  
  313. static Widget
  314. create_ok (Widget parent, char *name, XtCallbackProc cb)
  315. {
  316.   Widget ok;
  317.   ok = XtVaCreateManagedWidget (name, commandWidgetClass, parent,
  318.                   XtNlabel, "OK", NULL);
  319.   XtAddCallback (ok, XtNcallback, cb, NULL);
  320.   return ok;
  321. }
  322.  
  323. static Widget
  324. create_command (Widget parent, char *name, XtCallbackProc cb)
  325. {
  326.   Widget ok;
  327.   ok = XtVaCreateManagedWidget (name, commandWidgetClass, parent, NULL);
  328.   XtAddCallback (ok, XtNcallback, cb, NULL);
  329.   return ok;
  330. }
  331.  
  332. static Widget
  333. create_popup (Widget parent, char *name)
  334. {
  335.   return XtVaCreatePopupShell (name, transientShellWidgetClass, parent, NULL);
  336. }
  337.  
  338. static Widget
  339. create_box (Widget parent, char *name)
  340. {
  341.   return XtVaCreateManagedWidget (name, boxWidgetClass, parent,
  342.                   XtNorientation, XtorientVertical, NULL);
  343. }
  344.  
  345.    
  346. Widget about_shell, help_shell;
  347.  
  348. char about_message[] = "\
  349. This is ed, a simple particle physics event display\n\
  350. application and demo for the MesaWorkstation widget.\n\
  351. \n\
  352. Copyright (C) 1995 Thorsten.Ohl @ Physik.TH-Darmstadt.de\n\
  353. \n\
  354. This is free software; see the source for copying conditions.\n\
  355. There is NO warranty; not even for MERCHANTABILITY\n\
  356. or FITNESS FOR A PARTICULAR PURPOSE.";
  357.  
  358. void
  359. popup_about (Widget w, XtPointer closure, XtPointer call_data)
  360. {
  361.   XtPopup (about_shell, XtGrabNonexclusive);
  362. }
  363.  
  364. void
  365. popdown_about (Widget w, XtPointer closure, XtPointer call_data)
  366. {
  367.   XtPopdown (about_shell);
  368. }
  369.  
  370.  
  371. char help_message[] = "\
  372. Sorry, no online help available yet.\n\
  373. \n\
  374. See the manpage or the source of the MesaWorkstation widget\n\
  375. for the available keystroke translations and their actions.\n\
  376. For a start, use the cursor keys to rotate the object.\n\
  377. \n\
  378. The color code of the particles is as follows:\n\
  379. \n\
  380.   red:    photons\n\
  381.   green:  charged leptons (electrons, muons, taus)\n\
  382.   yellow: neutrinos\n\
  383.   blue:   hadrons (incl. quarks)\n\
  384.   while:  unidentified\n";
  385.  
  386. void
  387. popup_help (Widget w, XtPointer closure, XtPointer call_data)
  388. {
  389.   XtPopup (help_shell, XtGrabNonexclusive);
  390. }
  391.  
  392. void
  393. popdown_help (Widget w, XtPointer closure, XtPointer call_data)
  394. {
  395.   XtPopdown (help_shell);
  396. }
  397.  
  398.  
  399. static XrmOptionDescRec options[] =
  400. {
  401.   { "-debug", "*debug", XrmoptionNoArg, "True" },
  402.   { "-rgba", "*rgba", XrmoptionNoArg, "True" },
  403.   { "-doublebuffer", "*doublebuffer", XrmoptionNoArg, "True" },
  404.   { "-ximage", "*ximage", XrmoptionNoArg, "True" },
  405. };
  406.  
  407. static String fallback_resources[] =
  408. {
  409.   "*MesaWorkstation.debug: false",
  410.   "*MesaWorkstation.rgba: false",
  411.   "*MesaWorkstation.installColormap: true",
  412.   "*MesaWorkstation.doublebuffer: true",
  413.   "*MesaWorkstation.ximage: false",
  414.   "*MesaWorkstation.translations: #augment \
  415.    <Key>q: Quit()\n\
  416.    <Key>Return: Next()\n\
  417.    <Key>space: Next()",
  418.   "*help.label: Help",
  419.   "*about.label: About ed",
  420.   "*quit.label: Exit",
  421.   "*next.label: Next event",
  422.   "*mesa.width: 400",
  423.   "*mesa.height: 400",
  424.   "*mesax.width: 100",
  425.   "*mesax.height: 100",
  426.   "*mesay.width: 100",
  427.   "*mesay.height: 100",
  428.   "*mesaz.width: 100",
  429.   "*mesaz.height: 100",
  430.   NULL
  431. };
  432.  
  433. int
  434. main (int argc, char *argv[])
  435. {
  436.   Widget top, frame, commands, next, quit;
  437.   Widget about, about_box, about_text, about_id, about_ok;
  438.   Widget help, help_box, help_text, help_ok;
  439.   XtAppContext app_context;
  440.   Boolean rgba, cmap_installed;
  441.   
  442.   GLuint barrel, object;
  443.  
  444.   top = XtVaAppInitialize (&app_context, "Ed",
  445.                options, XtNumber (options),
  446.                &argc, argv, fallback_resources,
  447.                NULL);
  448.  
  449.   frame = XtVaCreateManagedWidget ("frame", formWidgetClass,
  450.                    top,
  451.                    NULL);
  452.  
  453.   commands = XtVaCreateManagedWidget ("commands", boxWidgetClass,
  454.                       frame,
  455.                       XtNhSpace, 10,
  456.                       XtNorientation, XtorientHorizontal,
  457.                       NULL);
  458.  
  459.   help = create_command (commands, "help", popup_help);
  460.   help_shell = create_popup (top, "help_shell");
  461.   help_box = create_box (help_shell, "help_box");
  462.   help_text = create_label (help_box, "help_text", help_message);
  463.   help_ok = create_ok (help_box, "help_ok", popdown_help);
  464.  
  465.   about = create_command (commands, "about", popup_about);
  466.   about_shell = create_popup (top, "about_shell");
  467.   about_box = create_box (about_shell, "about_box");
  468.   about_text = create_label (about_box, "about_text", about_message);
  469.   about_id = create_label (about_box, "about_id", RCS_Id);
  470.   about_ok = create_ok (about_box, "about_ok", popdown_about);
  471.  
  472.   next = create_command (commands, "next", next_function);
  473.   quit = create_command (commands, "quit", quit_function);
  474.  
  475.   mesa = XtVaCreateManagedWidget ("mesa", mesaWorkstationWidgetClass,
  476.                   frame,
  477.                   GLwNshareLists, True,
  478.                   XtNfromVert, commands, XtNvertDistance, 10,
  479.                   NULL);
  480.  
  481.   mesax = XtVaCreateManagedWidget ("mesax", mesaWorkstationWidgetClass,
  482.                    frame,
  483.                    GLwNshareLists, True,
  484.                    XtNfromVert, mesa, XtNvertDistance, 10,
  485.                    NULL);
  486.   mesay = XtVaCreateManagedWidget ("mesay", mesaWorkstationWidgetClass,
  487.                    frame,
  488.                    GLwNshareLists, True,
  489.                    XtNfromVert, mesa, XtNvertDistance, 10,
  490.                    XtNfromHoriz, mesax, XtNhorizDistance, 50,
  491.                    NULL);
  492.   mesaz = XtVaCreateManagedWidget ("mesaz", mesaWorkstationWidgetClass,
  493.                    frame,
  494.                    GLwNshareLists, True,
  495.                    XtNfromVert, mesa, XtNvertDistance, 10,
  496.                    XtNfromHoriz, mesay, XtNhorizDistance, 50,
  497.                    NULL);
  498.  
  499.   XtAppAddActions (app_context, actions, XtNumber (actions));
  500.   
  501.   XtRealizeWidget (top);
  502.  
  503.   XtVaGetValues (mesa,
  504.          GLwNrgba, &rgba,
  505.          GLwNinstallColormap, &cmap_installed,
  506.          NULL);
  507.   if (rgba)
  508.     {
  509.       Black = White = Red = Green = Blue = Yellow = 0;
  510.  
  511.       if (cmap_installed)
  512.     {
  513.       /* In RGBA mode, the Mesa widgets will have their own color map.
  514.          Adjust the colors of the other widgets so that--even if the rest
  515.          of the screen has wrong colors--all application widgets have the
  516.          right colors.  */
  517.              
  518.       translate_pixels (mesa, quit,
  519.                 XtNbackground, XtNforeground, XtNborder, NULL);
  520.       translate_pixels (mesa, next,
  521.                 XtNbackground, XtNforeground, XtNborder, NULL);
  522.       translate_pixels (mesa, help,
  523.                 XtNbackground, XtNforeground, XtNborder, NULL);
  524.       translate_pixels (mesa, about,
  525.                 XtNbackground, XtNforeground, XtNborder, NULL);
  526.       translate_pixels (mesa, commands, XtNbackground, XtNborder, NULL);
  527.       translate_pixels (mesa, frame, XtNbackground, XtNborder, NULL);
  528.       
  529.       /* Finally warp the pointer into the mesa widget, to make sure that
  530.          the user sees the right colors at the beginning.  */
  531.  
  532.       XWarpPointer (XtDisplay (mesa), None, XtWindow (mesa), 0, 0, 0, 0, 0, 0);
  533.     }
  534.     }
  535.   else
  536.     {
  537.       /* Allocate a few colors for use in color index mode.  */
  538.  
  539.       Colormap cmap;
  540.       cmap = DefaultColormap (XtDisplay (top), DefaultScreen (XtDisplay (top)));
  541.       Black  = alloc_color (top, cmap, 0x0000, 0x0000, 0x0000);
  542.       White  = alloc_color (top, cmap, 0xffff, 0xffff, 0xffff);
  543.       Red    = alloc_color (top, cmap, 0xffff, 0x0000, 0x0000);
  544.       Green  = alloc_color (top, cmap, 0x0000, 0xffff, 0x0000);
  545.       Blue   = alloc_color (top, cmap, 0x0000, 0x0000, 0xffff);
  546.       Yellow = alloc_color (top, cmap, 0xffff, 0xffff, 0x0000);
  547.     }
  548.  
  549.   setup_context (mesa);
  550.   setup_context (mesax);
  551.   setup_context (mesay);
  552.   setup_context (mesaz);
  553.  
  554.   GLwSetFrustumProjection (mesa, -1.0, 1.0, -1.0, 1.0, 1.0, 10.0);
  555.   GLwSetPolarView (mesa, 3, M_PI/2, 0.0);
  556.  
  557.   GLwBeginProjection (mesax);
  558.   glOrtho (-1.5, 1.5, -1.5, 1.5, 1.0, 10.0);
  559.   GLwEndProjection ();
  560.   GLwPostProjection (mesay, GLwGetProjectionList (mesax));
  561.   GLwPostProjection (mesaz, GLwGetProjectionList (mesax));
  562.  
  563.   GLwBeginView (mesax);
  564.   gluLookAt (3.0, 0.0, 0.0,  0.0, 0.0, 0.0,  0.0, 1.0, 0.0);
  565.   GLwEndView ();
  566.  
  567.   GLwBeginView (mesay);
  568.   gluLookAt (0.0, 3.0, 0.0,  0.0, 0.0, 0.0,  0.0, 0.0,-1.0);
  569.   GLwEndView ();
  570.  
  571.   GLwBeginView (mesaz);
  572.   gluLookAt (0.0, 0.0, 3.0,  0.0, 0.0, 0.0,  0.0, 1.0, 0.0);
  573.   GLwEndView ();
  574.  
  575.   barrel = glGenLists (1);
  576.   glNewList (barrel, GL_COMPILE);
  577.   {
  578.     draw_barrel_segment (0.9, 1.0,
  579.              0.3 * M_PI, 0.7 * M_PI,
  580.              0.1 * M_PI);
  581.   }
  582.   glEndList ();
  583.  
  584.   particles = glGenLists (1);
  585.   glNewList (particles, GL_COMPILE);
  586.   glEndList ();
  587.  
  588.   object = glGenLists (1);
  589.   glNewList (object, GL_COMPILE);
  590.   {
  591.     float frac;
  592.     glClear (GL_COLOR_BUFFER_BIT);
  593.     glIndexi (White);
  594.     glColor3f (1.0, 1.0, 1.0);
  595.     for (frac = 0; frac < 1.0; frac += 0.125)
  596.       {
  597.     glPushMatrix ();
  598.       glRotatef (frac * 360, 0.0, 0.0, 1.0);
  599.       glCallList (barrel);
  600.     glPopMatrix ();
  601.       }
  602.     glPushMatrix ();
  603.       glCallList (particles);
  604.     glPopMatrix ();
  605.   }
  606.   glEndList ();
  607.  
  608. #if 0
  609.   greek = glGenLists (128);
  610.   glXUseXFont (XLoadFont (XtDisplay (top), "*-symbol-*-240-*"),
  611.            0, 128, greek);
  612. #endif
  613.   latin = glGenLists (128);
  614.   glXUseXFont (XLoadFont (XtDisplay (top), "*-times-*-240-*"),
  615.            0, 128, latin);
  616.  
  617.   desc_number = glGenLists (1);
  618.   update_number (0);
  619.   desc_angles = glGenLists (1);
  620.   update_angles (0.0, 0.0);
  621.  
  622.   desc = glGenLists (1);
  623.   glNewList (desc, GL_COMPILE);
  624.   {
  625.     glMatrixMode (GL_PROJECTION);
  626.     glLoadIdentity ();
  627.     glOrtho (0, 400, 0, 400, -1.0, 1.0);
  628.     glMatrixMode (GL_MODELVIEW);
  629.     glLoadIdentity ();
  630.     glIndexi (White);
  631.     glColor3f (1.0, 1.0, 1.0);
  632.     glPushAttrib (GL_LIST_BIT);
  633.       glRasterPos2i (10.0, 10.0);
  634.       glListBase (latin);
  635.       glCallList (desc_number);
  636. #if 0
  637.       glRasterPos2i (10.0, 380.0);
  638.       glListBase (greek);
  639.       glCallList (desc_angles);
  640. #endif
  641.     glPopAttrib ();
  642.   }
  643.   glEndList ();
  644.   
  645.   GLwPostObject (mesa, object);
  646.   GLwPostObject (mesax, object);
  647.   GLwPostObject (mesay, object);
  648.   GLwPostObject (mesaz, object);
  649.   GLwPostObject (mesa, desc);
  650.  
  651.   XtAppMainLoop (app_context);
  652.   return (0);
  653. }
  654.  
  655.